home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / MUSIC1.PAK / MUSIC.CC < prev    next >
Encoding:
Text File  |  1995-07-18  |  7.3 KB  |  210 lines
  1. ************************************************************************************
  2. *  PROGRAM:      Music.cc
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         2/94
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  REVISION:     $Revision:   1.15  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *
  15. *  DESCRIPTION:  This is a procedure file containing class definitions for
  16. *                text, entryfields, and buttons used in the Musical Methods
  17. *                application.
  18. *
  19. *                Current Classes:
  20. *                   EmphasizedText
  21. *                   EmphasizedEntry
  22. *                   NormalText
  23. *                   NormalEntry
  24. *                   NextMButton
  25. *                   PrevMButton
  26. *                   OkMButton
  27. *                   CancelMButton
  28. *                   CloseMButton
  29. *                   MusicButton
  30. *
  31. *
  32. *
  33. *  PARAMETERS:   Each custom button control in this file requires 2 arguments:
  34. *                F    -- Object -- Reference to the parent form
  35. *                Name -- String -- Name of the control being created
  36. *                Example:
  37. *                   f = new form()
  38. *                   p = new OkButton(f,"myOkButton")
  39. *
  40. *  CALLS:        None
  41. *
  42. *  USAGE:        SET PROCEDURE TO Music.cc, then use these classes with:
  43. *                NEW syntax:  x = new OkButton(f),
  44. *                DEFINE syntax: define OkButton x of f
  45. *                FORMS DESIGNER: select the classes from the DBW Custom Classes
  46. *                                inspector when adding controls to your form.
  47. *
  48. *******************************************************************************
  49. *******************************************************************************
  50. *******************************************************************************
  51. class EmphasizedText(f,name) of Text(f,name) custom
  52. *******************************************************************************
  53.  
  54.    this.Alignment   = 5
  55.    this.ColorNormal = "N/W"
  56.    this.Border      = .F.
  57.    this.Text        = "Artist"
  58.    this.Width       = 13.52
  59.    this.Height      = 2.02
  60.    this.FontSize    = 10.00
  61.    this.FontName    = "MS Sans Serif"
  62.    this.FontBold    = .F.
  63.  
  64. endclass
  65.  
  66.  
  67.  
  68. *******************************************************************************
  69. *******************************************************************************
  70. class EmphasizedEntry(f,name) of Entryfield(f,name) custom
  71. *******************************************************************************
  72.  
  73.    this.Alignment      = 3
  74.    this.Enabled        = .F.
  75.    this.ColorNormal    = "R/W"
  76.    this.ColorHighlight = "W+/R"
  77.    this.Height         = 1.26
  78.    this.FontSize       = 10.00
  79.    this.FontName       = "MS Sans Serif"
  80.    this.Border         = .T.
  81.    this.FontBold       = .T.
  82.    this.Width          = 70.28
  83.  
  84. endclass
  85.  
  86.  
  87. *******************************************************************************
  88. *******************************************************************************
  89. class NormalText(f,name) of Text(f,name) custom
  90. *******************************************************************************
  91.  
  92.    this.Alignment   = 5
  93.    this.ColorNormal = "N/W"
  94.    this.Width       = 10.81
  95.    this.Height      = 1.26
  96.    this.FontSize    = 8.00
  97.    this.FontName    = "MS Sans Serif"
  98.    this.FontBold    = .F.
  99.  
  100. endclass
  101.  
  102. *******************************************************************************
  103. *******************************************************************************
  104. class NormalEntry(f,name) of Entryfield(f,name) custom
  105. *******************************************************************************
  106.  
  107.    this.Alignment      = 3
  108.    this.Enabled        = .F.
  109.    this.ColorNormal    = "R/W"
  110.    this.ColorHighlight = "R/W+"
  111.    this.Width          = 13.52
  112.    this.Height         = 1.26
  113.    this.FontSize       = 8.00
  114.    this.FontName       = "MS Sans Serif"
  115.    this.Border         = .T.
  116.    this.FontBold       = .T.
  117.  
  118. endclass
  119.  
  120. *******************************************************************************
  121. *******************************************************************************
  122. class NextMButton(f,name) of MusicButton(f,name) custom
  123. *******************************************************************************
  124.  
  125.    this.upbitmap      = "Resource #100"
  126.    this.SpeedTip      = "Next item in current order"
  127.    this.text          = "&Next"
  128.    this.StatusMessage = "Go to the next item in the current order."
  129.    this.FontSize      = 8.00
  130.    this.FontName      = "MS Sans Serif"
  131.  
  132. endclass
  133.  
  134. *******************************************************************************
  135. *******************************************************************************
  136. class PrevMButton(f,name) of MusicButton(f,name) custom
  137. *******************************************************************************
  138.  
  139.    this.upbitmap      = "Resource #104"
  140.    this.SpeedTip      = "Previous item in current order"
  141.    this.text          = "&Previous"
  142.    this.StatusMessage = "Go to the previous item in the current order."
  143.    this.FontSize      = 8.00
  144.    this.FontName      = "MS Sans Serif"
  145.  
  146. endclass
  147.  
  148.  
  149.  
  150. *******************************************************************************
  151. *******************************************************************************
  152. class OkMButton(f,n) of MusicButton(f,n) custom
  153. *******************************************************************************
  154.  
  155.  
  156.    this.text           = "OK"
  157.    this.upbitmap       = "Resource #20"
  158.    this.disabledbitmap = "Resource #21"
  159.    this.FontSize       = 8.00
  160.    this.FontName       = "MS Sans Serif"
  161.    this.SpeedTip       = "Execute selection and close form"
  162.  
  163. endclass
  164.  
  165.  
  166. *******************************************************************************
  167. *******************************************************************************
  168. class CancelMButton(f,n) of MusicButton(f,n) custom
  169. *******************************************************************************
  170.  
  171.    this.text           = "Cancel"
  172.    this.OnClick        = {;form.Close()}
  173.    this.upBitmap       = "Resource #28"
  174.    this.disabledBitmap = "Resource #29"
  175.    this.StatusMessage  = "Cancel this form."
  176.    this.FontSize       = 8.00
  177.    this.FontName       = "MS Sans Serif"
  178.    this.SpeedTip       = "Cancel selection and close form"
  179.  
  180. endclass
  181.  
  182. *******************************************************************************
  183. *******************************************************************************
  184. class CloseMButton(f,n) of MusicButton(f,n) custom
  185. *******************************************************************************
  186.  
  187.    this.text           = "C&lose"
  188.    this.OnClick        = {;form.Close()}
  189.    this.upBitmap       = "Resource #1005"
  190.    this.disabledBitmap = "Resource #1006"
  191.    this.StatusMessage  = "Close this form."
  192.    this.FontSize       = 8.00
  193.    this.FontName       = "MS Sans Serif"
  194.    this.SpeedTip       = "Close form"
  195.  
  196. endclass
  197.  
  198. *******************************************************************************
  199. *******************************************************************************
  200. class MusicButton(f,name) of Pushbutton(f,name) custom
  201. *******************************************************************************
  202.  
  203.    this.colornormal = "n/w"
  204.    this.height      = 1.50
  205.    this.width       = 14.11
  206.    this.FontSize    = 8.00
  207.    this.FontName    = "MS Sans Serif"
  208.  
  209. endclass
  210.